﻿
Public Class UnitPointType
	Public Property X As Double
	Public Property Y As Double

	Sub New(x As Double, y As Double)
		Me.X = x
		Me.Y = y
	End Sub

	Sub New(coordinates As String)
		If Not String.IsNullOrEmpty(coordinates) Then
			Dim stringcoordinates() As String

			stringcoordinates = coordinates.Split(" "c)
			Me.X = Parser.ParseDouble(stringcoordinates(0))
			Me.Y = Parser.ParseDouble(stringcoordinates(1))
		End If
	End Sub

	Public Overrides Function ToString() As String
		Return "x: " & Me.X & " - " & "y: " & Me.Y
	End Function
End Class
